home *** CD-ROM | disk | FTP | other *** search
/ Know Your Baseball - The Greatest Player Resource / Know Your Baseball - Greatest Player.iso / Baseball / Director / SHARED.CST / 00010_Script_special functions for home DIR < prev    next >
Text File  |  1998-09-21  |  1KB  |  76 lines
  1. global gControls, gRegAll, gRegSkill, gRegGame
  2.  
  3. on SSQY
  4.   if gRegAll>0 or gRegSkill > 0 then
  5.     puppetsprite 36, false
  6.     mSetDilbert(gControls)
  7.     go "1SSQY"
  8.     puppetsprite 36, true
  9.   else
  10.     go "1Exit"
  11.     go to "RegSkills" of movie "register"
  12.   end if
  13.   
  14. end
  15.  
  16. on SSQR
  17.   if gRegAll>0 or gRegSkill > 0 then
  18.     puppetsprite 36, false
  19.     mSetHomeMenu(gControls)
  20.     go "1SSQR"
  21.     puppetsprite 36, true
  22.   else
  23.     go "1Exit"
  24.     go to "RegSkills" of movie "register"
  25.   end if
  26.   
  27. end
  28.  
  29. on NoFlag
  30.   puppetsprite 36, false
  31.   setinits
  32.   mloadSoundNames(gControls)
  33.   go "1home"
  34.   puppetsprite 36, true
  35. end
  36.  
  37. on beyond
  38.   repeat with x = 1 to 48
  39.     puppetsprite x, 0
  40.   end repeat
  41.   updatestage
  42.   go "1exit"
  43.   --  go movie "Beyond"
  44.   if gRegAll > 0 or gRegGame > 0 then
  45.     go movie "beyond"
  46.   else
  47.     go to "RegGame" of movie "register"
  48.   end if
  49. end
  50.  
  51. on  StartAgain
  52.   repeat with x = 8 to 48
  53.     puppetsprite x, 0
  54.   end repeat
  55.   go "1EXIT"
  56.   go to  movie "sizzle"
  57. end
  58.  
  59. on ktgopn
  60.   global gDNS
  61.   repeat with x = 1 to 48
  62.     puppetsprite x, 0
  63.   end repeat
  64.   updatestage
  65.   go "1exit"
  66.   
  67.   if gRegAll > 0 or gRegGame > 0 then
  68.     go movie "KTGopn"
  69.   else
  70.     go to "RegGame" of movie "register"
  71.   end if
  72.   
  73. end
  74.  
  75.  
  76.